home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / menus / 3dmenu / 3d1.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1994-10-14  |  3.2 KB  |  109 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Demo"
  5.    ClientHeight    =   2655
  6.    ClientLeft      =   1050
  7.    ClientTop       =   2070
  8.    ClientWidth     =   7455
  9.    Height          =   3060
  10.    Left            =   990
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2655
  13.    ScaleWidth      =   7455
  14.    Top             =   1725
  15.    Width           =   7575
  16.    Begin SSPanel About 
  17.       ForeColor       =   &H00000000&
  18.       Height          =   495
  19.       Left            =   960
  20.       TabIndex        =   4
  21.       Top             =   480
  22.       Width           =   1095
  23.       Begin Label Label3 
  24.          BackStyle       =   0  'Transparent
  25.          Caption         =   "A&bout"
  26.          Height          =   375
  27.          Left            =   120
  28.          TabIndex        =   5
  29.          Top             =   120
  30.          Width           =   855
  31.       End
  32.    End
  33.    Begin SSFrame File 
  34.       Caption         =   "File"
  35.       Height          =   735
  36.       Left            =   0
  37.       TabIndex        =   2
  38.       Top             =   480
  39.       Width           =   1215
  40.       Begin Label Label4 
  41.          BackStyle       =   0  'Transparent
  42.          Caption         =   "E&xit"
  43.          Height          =   375
  44.          Left            =   120
  45.          TabIndex        =   6
  46.          Top             =   360
  47.          Width           =   735
  48.       End
  49.    End
  50.    Begin SSPanel Panel3D1 
  51.       ForeColor       =   &H00000000&
  52.       Height          =   495
  53.       Left            =   0
  54.       Outline         =   -1  'True
  55.       TabIndex        =   0
  56.       Top             =   0
  57.       Width           =   7455
  58.       Begin Label Label2 
  59.          BackStyle       =   0  'Transparent
  60.          Caption         =   "&About"
  61.          Height          =   255
  62.          Left            =   960
  63.          TabIndex        =   3
  64.          Top             =   120
  65.          Width           =   1455
  66.       End
  67.       Begin Label Label1 
  68.          BackStyle       =   0  'Transparent
  69.          Caption         =   "&File"
  70.          ForeColor       =   &H00000000&
  71.          Height          =   255
  72.          Left            =   120
  73.          TabIndex        =   1
  74.          Top             =   120
  75.          Width           =   1095
  76.       End
  77.    End
  78.    Begin Label Label5 
  79.       BackStyle       =   0  'Transparent
  80.       Caption         =   "JWPC '95"
  81.       FontBold        =   -1  'True
  82.       FontItalic      =   0   'False
  83.       FontName        =   "Times New Roman"
  84.       FontSize        =   84.75
  85.       FontStrikethru  =   0   'False
  86.       FontUnderline   =   0   'False
  87.       ForeColor       =   &H00FF0000&
  88.       Height          =   1695
  89.       Left            =   0
  90.       TabIndex        =   7
  91.       Top             =   840
  92.       Width           =   7575
  93.    End
  94. Sub Form_Load ()
  95. about.Visible = False
  96. file.Visible = False
  97. End Sub
  98. Sub Label1_Click ()
  99. file.Visible = True
  100. about.Visible = False
  101. End Sub
  102. Sub Label2_Click ()
  103. about.Visible = True
  104. file.Visible = False
  105. End Sub
  106. Sub Label3_Click ()
  107. MsgBox "Copyright (C) 1994 Jeff Wilcox, President of JWPC 1995, inc.", 48, "About 3d Menus"
  108. End Sub
  109.